home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / 1st_111.zip / INSTALL.INS < prev    next >
Text File  |  1993-05-23  |  16KB  |  438 lines
  1.         SPARKWARE
  2.  
  3.     ASSIGN(Default$,0,2)
  4.         SAVER 180
  5.  
  6. :TOP
  7.         DISPLAY OFF
  8.         CLS
  9.         CURSOR OFF
  10.         BLINK OFF
  11.         FILLSCRN(1,1,25,80,32,31,112)
  12.         BOX(3,5,23,75,48,7,1,1)
  13.         CLEAR_BOXES
  14.         SCREEN(1,SAVE)
  15.         DIALOG_BOX(1,0,0,1,"      About      ",4,51,112,112,1,116,15)
  16.         DIALOG_BOX(2,0,0,2,"    What's new   ",9,51,112,112,1,116,15)
  17.         DIALOG_BOX(3,0,0,3,"     Install     ",14,51,112,112,1,116,15)
  18.         DIALOG_BOX(4,0,27,4,"      Quit       ",19,51,112,112,1,116,15)
  19.         QPRINT("Thank you for purchasing @READER@ 1.10",5,7,49,-1)
  20.         QPRINT("This program will install @READER@",10,7,-1)
  21.         QPRINT("onto your computer's hard disk.  It")
  22.         QPRINT("will also update an older release of")
  23.         QPRINT("@READER@ to this new release version.")
  24.         QPRINT("Press the highlighted letter or",16,7,-1)
  25.         QPRINT("click your mouse on a button to")
  26.         QPRINT("make a selection.")
  27.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  28.         DISPLAY ON
  29.         GET(Choice$,Default$)
  30.     ASSIGN(Default$,0,3)
  31.         CLEAR_BOXES
  32.         ON Choice$ GOTO ABOUT,NOTES,INSTALL,QUIT
  33.  
  34. :QUIT
  35.         CLS(7)
  36.         BOX(7,20,11,60,48,112,1,1)
  37.         QPRINT("Thank you for using @READER@",9,26,62,112)
  38.         IF NOT COMPARE(InstallOk$,True) THEN GOTO QUIT1
  39.         QPRINT("Type '1ST' to run @READER@",14,-1,-1)
  40.         QPRINT("Click on '1stTutor' to view the @READER@ tutorial",15,-1,-1)
  41. :QUIT1
  42.         LOCATE 22,1
  43.         CURSOR ON
  44.         EXIT
  45.  
  46. :ABOUT
  47.         DISPLAY OFF
  48.         BOX(3,5,23,75,240,7,1,1)
  49.         QPRINT("@READER@ Install",5,-1,-1)
  50.         QPRINT("─────────────────")
  51.         QPRINT("Copyright 1993 by Mark Herring",9)
  52.         QPRINT("All Rights Reserved")
  53.         QPRINT("Sparkware",12)
  54.         QPRINT("Post Office Box 386")
  55.         QPRINT("Hendersonville, Tennessee   37077")
  56.         QPRINT("(615) 230-8822 (BBS)",16)
  57.         QPRINT("(615) 230-MAIL (Voice)")
  58.         QPRINT("Press any key to continue",21,0,241,15)
  59.         DISPLAY ON
  60.         PAUSE
  61.         GOTO TOP
  62.  
  63. :NOTES
  64.         LIST "WHATS.NEW"
  65.         GOTO TOP
  66.  
  67. :INSTALL
  68.     ASSIGN(Install_Type$,0,0)
  69.         DISPLAY OFF
  70.         BOX(3,5,23,75,48,7,1,1)
  71.         QPRINT("Installing @READER@",5,7,49,-1)
  72.         QPRINT("You may choose to install the complete",8,7,48,7)
  73.         APRINT("@READER@ system, print the manuals, or")
  74.         QPRINT("only install the add-in systems.")
  75.         QPRINT("Press the highlighted letter or",14,7,-1)
  76.         QPRINT("click your mouse on a button to")
  77.         QPRINT("make a selection.")
  78.         APRINT("Press the @X00@XF0 ESC @XFF key to quit.",21,7,-1)
  79.         DIALOG_BOX(1,0,0,1," Complete install ",4,50,112,112,1,116,15)
  80.         DIALOG_BOX(2,0,0,2,"   Print manuals  ",9,50,112,112,1,116,15)
  81.         DIALOG_BOX(3,0,0,3,"     Add-ins      ",14,50,112,112,1,116,15)
  82.         DIALOG_BOX(4,0,27,4,"       Quit       ",19,50,112,112,1,116,15)
  83.         DISPLAY ON
  84.         GET(Choice$,4)
  85.         CLEAR_BOXES
  86.         ON Choice$ GOTO FULL_INSTALL,MANUALS,ADD-INS
  87.         GOTO TOP
  88.  
  89. :FULL_INSTALL
  90.     ASSIGN(Install_Type$,0,1)
  91.         GOSUB GET_TARGET
  92.  
  93.         IF NOT EXIST Target$+"1ST.EXE" THEN GOTO NEW_INSTALL
  94.         ASSIGN(Update$,0,True)
  95.         ASSIGN(SetFile$,0,Target$+"1ST.SET")
  96.         SET_LOAD SetFile$
  97.         SWITCH(10,OFF)
  98.         SET_SAVE SetFile$
  99.         OPEN("B",1,SetFile$)
  100.         SEEK(1,&H159)
  101.         ASSIGN(Value$,-60,"QSZ portx %4 sz %3 /NOCLS /CURSOR_OFF /NS")
  102.         WRITE(1,Value$)
  103.         SEEK(1,&H195)
  104.         ASSIGN(Value$,-60,"QSZ portx %4 rz %3 /NOCLS /CURSOR_OFF /NS")
  105.         WRITE(1,Value$)
  106.         SEEK(1,&H500)
  107.         LITERAL ASSIGN(Value$,-50,"@API$(5)QZIP %1 %2 /NOCLS /CURSOR_OFF")
  108.         WRITE(1,Value$)
  109.         SEEK(1,&H700)
  110.         LITERAL ASSIGN(Value$,-50,"@API$(5)QUNZIP %1 %2 %3 /NOCLS /CURSOR_OFF")
  111.         WRITE(1,Value$)
  112.         CLOSE 1
  113.         SCREEN(1,RESTORE)
  114.         QPRINT("Installing updated system files",6,-1,-1)
  115.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  116.         UP_SCRIPT Target$+"SYSTEMS.DAT"
  117.         ASSIGN(InstallOk$,0,True)
  118.         SCREEN(1,RESTORE)
  119.         DISPLAY OFF
  120.         QPRINT("This new release of 1stReader changes many of the switch",10,12,-1)
  121.         QPRINT("definitions from previous releases.  You *MUST* use the")
  122.         QPRINT("SETUP/SWITCHES command buttons from the opening screen")
  123.         QPRINT("in order to configure your system correctly.")
  124.         QPRINT("Press any key to continue...",21,-1,-1)
  125.         DISPLAY ON
  126.         BEEP
  127.         PAUSE
  128.         GOTO SCRIPTS
  129.  
  130. :NEW_INSTALL
  131.         QPRINT("Creating system subdirectory...",19,10,-1)
  132.         MKDIR Target$
  133.         QPRINT("Creating scripts subdirectory...")
  134.         MKDIR Scripts$
  135.         QPRINT("Creating packets subdirectory...")
  136.         MKDIR Packets$
  137.         SCREEN(1,RESTORE)
  138.         QPRINT("Installing main system files",6,-1,-1)
  139.         UNPACK "SYSTEM.ZIP" TO Target$ "*.*"
  140.         UNPACK "NEWSYS.ZIP" TO Target$ "*.*"
  141.  
  142. :SCRIPTS
  143.         SCREEN(1,RESTORE)
  144.         QPRINT("Installing script files",6,-1,-1)
  145.         UNPACK "SCRIPTS.ZIP" TO Scripts$ "*.*"
  146.         SCREEN(1,RESTORE)
  147.         QPRINT("Copying installation programs...",6,-1,-1)
  148.         QPRINT("1stReader keyfile",9,24,-1)
  149.         COPY("*.KEY",Target$)
  150.         QPRINT("Copying the installation programs...")
  151.         COPY("INSTALL.EXE",Target$)
  152.         COPY("*.INS",Target$)
  153.         QPRINT("Copying QUNZIP.EXE...")
  154.         COPY("QUNZIP.EXE",Target$)
  155.         QPRINT("Copying the WHATS.NEW file...")
  156.         COPY("WHATS.NEW",Target$)
  157.         IF COMPARE(Update$,True) THEN GOTO MANUALS
  158.  
  159.         QPRINT("Copying the tutorial packet")
  160.         COPY("SPARKY.QTU",Packets$)
  161.         COPY("SYSTEMS.DAT",Target$)
  162.         GET_BBS
  163.  
  164.         DISPLAY OFF
  165.         SCREEN(1,RESTORE)
  166.         QPRINT("Thank you for purchasing @READER@!",5,9,49,15)
  167.         QPRINT("Before you can run @READER@ we first",11,9,-1)
  168.         QPRINT("need to know a bit about your computer")
  169.         QPRINT("system.  You need to tell us which")
  170.         QPRINT("serial port is used to connect your")
  171.         QPRINT("system to your modem.")
  172.         QPRINT("Please make your selection now...",21,9,62,15)
  173.         DIALOG_BOX(1,0,49,"3F8,4","     Port 1      ",4,51,112,112,0,116,15)
  174.         DIALOG_BOX(2,0,50,"2F8,3","     Port 2      ",8,51,112,112,0,116,15)
  175.         DIALOG_BOX(3,0,51,"3E8,4","     Port 3      ",12,51,112,112,0,116,15)
  176.         DIALOG_BOX(4,0,52,"2E8,3","     Port 4      ",16,51,112,112,0,116,15)
  177.         DIALOG_BOX(5,0,27,"0","    No modem     ",20,51,112,112,0,116,15)
  178.         DISPLAY ON
  179.         GET(Serial$,1)
  180.         CLEAR_BOXES
  181.  
  182.         IF COMPARE (Serial$,"0") THEN GOTO DISPLAY
  183.         DISPLAY OFF
  184.         SCREEN(1,RESTORE)
  185.         QPRINT("How fast is your modem?",5,9,49,15)
  186.         QPRINT("@READER@ needs to know the maximum",11,9,-1)
  187.         QPRINT("speed your modem supports.  If you")
  188.         QPRINT("are unsure about just how fast your")
  189.         QPRINT("modem will transmit data over the")
  190.         QPRINT("telephone line we recommend you use")
  191.         QPRINT("'1200 baud' for your modem.")
  192.         QPRINT("A)",5,52,62,15)
  193.         QPRINT("B)",9,52,62,15)
  194.         QPRINT("C)",13,52,62,15)
  195.         QPRINT("D)",17,52,62,15)
  196.         QPRINT("E)",21,52,62,15)
  197.         QPRINT("Press (A-E) to select your modem speed...",21,9,62,15)
  198.         DIALOG_BOX(1,0,1065,"1200","  1200 baud  ",4,56,112,112,0,116,15)
  199.         DIALOG_BOX(2,0,1066,"2400","  2400 baud  ",8,56,112,112,0,116,15)
  200.         DIALOG_BOX(3,0,1067,"9600","  9600 baud  ",12,56,112,112,0,116,15)
  201.         DIALOG_BOX(4,0,1068,"19200"," 19,200 baud ",16,56,112,112,0,116,15)
  202.         DIALOG_BOX(5,0,1069,"38400"," 38,400 baud ",20,56,112,112,0,116,15)
  203.         DISPLAY ON
  204.         GET(Baud$,1)
  205.         CLEAR_BOXES
  206.  
  207.         PICK (ModemInit$,"Select your modem type (use the arrow keys to view more modems): ","MODEMS.DAT",102,1,50,51,50,30,7)
  208.  
  209.         DISPLAY OFF
  210.         SCREEN(1,RESTORE)
  211.         QPRINT("Which type of telephone service do you have?",5,9,49,15)
  212.         QPRINT("I have touch tone service",9,19,-1)
  213.         QPRINT("Touch tone service but I must dial '9' to 'get out'",13,19,-1)
  214.         QPRINT("I have rotary service",17,19,-1)
  215.         QPRINT("Rotary service but I must dial '9' to 'get out'",21,19,-1)
  216.         DIALOG_BOX(1,0,0,"ATDT"," 1 ",8,9,112,112,0,116,15)
  217.         DIALOG_BOX(2,0,0,"ATDT 9,"," 2 ",12,9,112,112,0,116,15)
  218.         DIALOG_BOX(3,0,0,"ATDP"," 3 ",16,9,112,112,0,116,15)
  219.         DIALOG_BOX(4,0,0,"ATDP 9,"," 4 ",20,9,112,112,0,116,15)
  220.         DISPLAY ON
  221.         GET(DialString$,1)
  222.         CLEAR_BOXES
  223.  
  224. :DISPLAY
  225.         DISPLAY OFF
  226.         SCREEN(1,RESTORE)
  227.     ASSIGN(Value$,0,1)
  228.     IF COLOR THEN ASSIGN(Value$,0,2)
  229.         QPRINT("Which type of monitor do you use?",5,10,49,15)
  230.         QPRINT("Please select your choice...",21,10,62,15)
  231.         DIALOG_BOX(1,0,77,"OFF","   I use a MONOCHROME display   ",9,23,112,112,1,116,15)
  232.         DIALOG_BOX(2,0,67,"ON","      I use a COLOR display     ",15,23,112,112,1,116,15)
  233.         DISPLAY ON
  234.         GET(Display$,Value$)
  235.         CLEAR_BOXES
  236.  
  237.         DISPLAY OFF
  238.         SCREEN(1,RESTORE)
  239.     ASSIGN(Value$,0,2)
  240.     IF COMPARE(_Mouse$,-1) THEN ASSIGN(Value$,0,1)
  241.         QPRINT("Do you use a mouse?",5,10,49,15)
  242.         QPRINT("Please select your choice...",21,10,62,15)
  243.         DIALOG_BOX(1,0,89,"ON","       Yes, I use a mouse       ",9,23,112,112,1,116,15)
  244.         DIALOG_BOX(2,0,78,"OFF","    No, I do not use a mouse    ",15,23,112,112,1,116,15)
  245.         DISPLAY ON
  246.         GET(Mouse$,Value$)
  247.         CLEAR_BOXES
  248.  
  249.         DISPLAY OFF
  250.         SCREEN(1,RESTORE)
  251.         QPRINT("Signatures",5,8,49,15)
  252.         QPRINT("Messages you leave with @READER@ can automatically have your name",10,8,-1)
  253.         QPRINT("placed on the bottom by the system.  If you would like to have 1st")
  254.         QPRINT("do this for you, please enter your FIRST name only using upper and")
  255.         QPRINT("lower case letters.")
  256.         QPRINT("My first name is: ",16,8,-1)
  257.         DISPLAY ON
  258.         ASK(Signature$,16,26,40,15,112)
  259.  
  260.         BOX(10,20,14,60,112,112,1,1,"Updating files...")
  261.         CHDIR Target$
  262.         SET_LOAD "1ST.SET"
  263.         SET(NewUser,"XX")
  264.         SET(SerialPort,Serial$)
  265.         SET(MaxBaudRate,Baud$)
  266.         SET(Init,ModemInit$)
  267.         SET(PreFix1,DialString$)
  268.         SET(PackDir,Target$+"PACKETS")
  269.         SET(RepDir,Target$+"PACKETS")
  270.         SET(DownLoads,Target$+"DOWNLOAD")
  271.         SET(Program,Target$+"PROGRAMS")
  272.         SET(WorkDir,Target$+"WORKDIR")
  273.         SET(Signature,Signature$)
  274.         SWITCH(4,Display$)
  275.         SWITCH(11,Mouse$)
  276.         SET_SAVE "1ST.SET"
  277.         ASSIGN(InstallOk$,0,True)
  278.         GETBBS
  279.         PAUSE 1
  280.  
  281. :MANUALS
  282.         GOSUB GET_TARGET
  283.         CHDIR Target$
  284.         DISPLAY OFF
  285.         SCREEN(1,RESTORE)
  286.         QPRINT("Please select which manuals you wish to print...",5,-1,-1)
  287.         DIALOG_BOX(1,0,66,1,"     Print the BEGINNER's manual    ",8,20,112,112,1,116,15)
  288.         DIALOG_BOX(2,0,65,2,"   Print the ADVANCED user's guide  ",13,20,112,112,1,116,15)
  289.         DIALOG_BOX(3,0,27,3,"               Quit                 ",18,20,112,112,1,116,15)
  290.         DISPLAY ON
  291.         GET (Value$,3)
  292.         CLEAR_BOXES
  293.         IF COMPARE(Value$,3) THEN GOTO MANUALS_DONE
  294.         ON Value$ GOTO NOVICE,ADVANCED
  295.  
  296. :NOVICE
  297.     ASSIGN(FileSpec$,0,"1ST.DOC")
  298.     ASSIGN(Value$,0,"Printing the beginner's manual now...")
  299.         GOTO PRINT_MANUAL
  300.  
  301. :ADVANCED
  302.     ASSIGN(FileSpec$,0,"ADVANCED.DOC")
  303.     ASSIGN(Value$,0,"Printing the advanced user's guide now...")
  304.  
  305. :PRINT_MANUAL
  306.         SCREEN(1,RESTORE)
  307.         BOX(10,10,14,70,112,112,1,1,Value$)
  308.         APRINT("Press the @X00@X(F0,0F) ESC @XFF key to quit",17,27,-1)
  309.         LPRINT_FILE FileSpec$
  310.         GOTO MANUALS
  311.  
  312. :MANUALS_DONE
  313.         CLEAR_BOXES
  314.         IF COMPARE(Install_Type$,0) THEN GOTO DONE
  315.  
  316. :ADD-INS
  317.         GOSUB GET_TARGET
  318.         CHDIR Target$
  319.         DISPLAY OFF
  320.         SCREEN(1,RESTORE)
  321.         QPRINT("Please select which 'add-ins' you wish to install...",1,-1,-1)
  322.         DIALOG_BOX(1,0,0,1,"     Multimedia Support     ",4,24,112,112,1,116,15)
  323.         DIALOG_BOX(2,0,0,2,"      Graphics examples     ",9,24,112,112,1,116,15)
  324.         DIALOG_BOX(3,0,0,3,"       Spell Checking       ",14,24,112,112,1,116,15)
  325.         DIALOG_BOX(4,0,27,4,"           Quit             ",19,24,112,112,1,116,15)
  326.         DISPLAY ON
  327.         GET (AddIn$,4)
  328.         CLEAR_BOXES
  329.         IF COMPARE(AddIn$,4) THEN GOTO DONE
  330.         ON AddIn$ GOTO MME,GRAPHICS,SPELL
  331.  
  332. :MME
  333.         ASSIGN(Temp$,0,"1ST-MME")
  334.     ASSIGN(Description$,0,"Multimedia support")
  335.         GOTO ADD-INS_INSTALL
  336.  
  337. :GRAPHICS
  338.         ASSIGN(Temp$,0,"1ST-GRPH")
  339.     ASSIGN(Description$,0,"Graphics examples")
  340.         GOTO ADD-INS_INSTALL
  341.  
  342. :SPELL
  343.         ASSIGN(Temp$,0,"1STSPELL")
  344.     ASSIGN(Description$,0,"Spell checking")
  345.  
  346. :ADD-INS_INSTALL
  347.         SCREEN(1,RESTORE)
  348.     ASSIGN(FileSpec$,0,Temp$+".NEW")
  349.         ASSIGN(FileSpec$,0,"@INSDRIVE@:"+FileSpec$)
  350.     ASSIGN(Title$,0,Description$)
  351.         GOSUB SHOW
  352.         DISPLAY OFF
  353.     ASSIGN(Title$,0,"Do you wish to install "+Description$)
  354.         BOX(8,10,12,70,112,112,1,1,Title$)
  355.         DIALOG_BOX(1,0,0,1,"   Yes   ",16,10,112,112,1,116,15)
  356.         DIALOG_BOX(2,0,27,2,"   No   ",16,59,112,112,1,116,15)
  357.         DISPLAY ON
  358.         GET (Ask$,1)
  359.         CLEAR_BOXES
  360.         IF COMPARE(Ask$,2) THEN GOTO ADD-INS
  361.         SCREEN(1,RESTORE)
  362.         QPRINT(Description$,5,-1,-1)
  363.         ON AddIn$ GOTO INS_MME,INS_GRAPHICS,INS_SPELL
  364.  
  365. :INS_MME
  366.         MKDIR Target$+"MME"
  367.         UNPACK "@INSDRIVE@:1ST-MME.ZIP" TO Target$+"MME" "*.*"
  368.         SET_LOAD Target$+"1ST.SET"
  369.         SWITCH(10,"ON")
  370.         SET_SAVE Target$+"1ST.SET"
  371.         SCREEN(2,SAVE)
  372.         BOX(10,10,14,70,79,112,1,1,"Welcome to 1stReader MultiMedia!")
  373.         VOC_FILE "MME\$$INTRO.VOC"
  374.         SCREEN(2,RESTORE)
  375.         GOTO ADD-INS
  376.  
  377. :INS_GRAPHICS
  378.         MKDIR Target$+"GRAPHICS"
  379.         UNPACK "@INSDRIVE@:1ST-GRPH.ZIP" TO Target$+"GRAPHICS" "*.*"
  380.         GOTO ADD-INS
  381.  
  382. :INS_SPELL
  383.         UNPACK "@INSDRIVE@:1STSPELL.ZIP" TO Target$ "*.*"
  384.         GOTO ADD-INS
  385.  
  386. :DONE
  387.     ASSIGN(Default$,0,4)
  388.         GOTO TOP
  389.  
  390. :SHOW
  391.         IF NOT EXIST(FileSpec$) THEN RETURN
  392.         SCREEN(3,SAVE)
  393.         DISPLAY OFF
  394.         OPEN("I",1,FileSpec$)
  395.         FILLSCRN(1,1,25,80,32,31,112)
  396.         BOX(4,5,19,76,7,7,1,0)
  397.         QPRINT(Title$,2,-1,-1)
  398.         BLINK ON
  399.         DISPLAY ON
  400.         SET_WINDOW(5,7,18,74)
  401.         ATTRIBUTE(7)
  402.  
  403. :SHOW_LOOP
  404.         DISPLAY OFF
  405.         MREAD(1,14)
  406.         SCREEN(2,SAVE)
  407.         BOX(21,5,23,76,112,15,1,1,"Press any key to continue or [ESC] to quit")
  408.         DISPLAY ON
  409.         PAUSE
  410.         SCREEN(2,RESTORE)
  411.         IF LASTKEY=27 THEN GOTO SHOW_DONE
  412.         IF NOT EOF(1) THEN GOTO SHOW_LOOP
  413.  
  414. :SHOW_DONE
  415.         CLOSE 1
  416.         SET_WINDOW(1,1,25,80)
  417.         SCREEN(3,RESTORE)
  418.         RETURN
  419.  
  420. :GET_TARGET
  421.         IF NOT COMPARE(Target$,"") THEN RETURN
  422.         SCREEN(1,RESTORE)
  423.         QPRINT("Installing @READER@",5,10,49,15)
  424.         QPRINT("Before we can begin you will need to tell @READER@",10,10,-1)
  425.         QPRINT("where you wish to install the program on your computer.")
  426.         QPRINT("We recommend that you use the default location suggested")
  427.         QPRINT("below unless you wish to install the system elsewhere.")
  428.         QPRINT("Location to install @READER@:",16,10,63,15)
  429.     ASSIGN(Target$,0,"@DRIVE@:\1ST\")
  430.         ASK(Target$,16,41,30,15,112,UPPER)
  431.         IF LASTKEY=27 THEN RETURN TOP
  432.         IF COMPARE(Target$,"") THEN RETURN TOP
  433.         DCHECK Target$
  434.         ASSIGN(Scripts$,0,Target$+"SCRIPTS\")
  435.         ASSIGN(Packets$,0,Target$+"PACKETS\")
  436.         RETURN
  437.  
  438.